﻿Imports LiteDB
Imports SACommon
Public Class AppFileItem
    <BsonId>
    Public Property FileID As Integer
    Public Property Fullname As String
    Public Property Filename As String
    Public Property ReferenceFile As Boolean
    Public Property UniqueFilename As String
    Public Property DirectoryID As Integer
    Public Property ApplicationID As Integer
    Public Property FileStatus As SAEventArgs.StatusCodes
    Public Property IncludeStatus As Boolean
    Public Property CreateShortCut As Boolean
    Sub New()
        FileID = 0
        Fullname = ""
        Filename = ""
        ReferenceFile = False
        UniqueFilename = ""
        DirectoryID = 1
        ApplicationID = gUDApp.SelectedAppID
        FileStatus = SAEventArgs.StatusCodes.Available
        IncludeStatus = True
        CreateShortCut = False
    End Sub
End Class
